home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / ARGONET / PD / MATHS / RLAB / RLAB125.ZIP / !RLaB / rlib / pause < prev    next >
Text File  |  1994-02-21  |  484b  |  22 lines
  1. //-------------------------------------------------------------------//
  2.  
  3. //  Syntax:    pause ( )
  4.  
  5. //  Description:
  6.  
  7. //  The pause function stops execution of an RLaB program until the
  8. //  return key is pressed.
  9.  
  10. //  See Also: fprintf, getline
  11. //-------------------------------------------------------------------//
  12.  
  13. pause = function ( message )
  14. {
  15.   if (!exist (message))
  16.   { 
  17.     message = "\tHit return to continue"; 
  18.   }
  19.   fprintf ("stdout", "%s\n", message);
  20.   getline ("stdin");
  21. };
  22.